این فصل شامل دستوراتی برای پخش آهنگ با فرمت های گوناگون ، از جمله MP3 و MID از روی فایل می باشد . ما می توانیم آهنگ ها را ایجاد و یا حذف کنیم . همچنین می توانیم میزان بلندی صدا و سرعت پخش هر آهنگ را کم و زیاد کنیم .

دستور LOAD MUSIC

با این دستور آهنگ مورد نظرمان را از روی فایل صدا می کنیم و یک عدد به آن اختصاص دهیم . مانند دستورالعمل زیر :

LOAD MUSIC Filename,MusicNumber

طبق این دستورالعمل به جای Filename مسیر و نام فایل مورد نظرمان را قرار می دهیم . و به جای MusicNumber یک عدد در محدوده ی 1 تا 65535 قرار می دهیم تا توسط آن عدد در خطوط بعدی به آهنگمان کنترل داشته باشید . مانند مثال زیر :

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3Music fun.mp3" , 1

Wait Key

در این مثال موزیکی با نام Music fun با فرمت mp3 که در مسیر C:Program FilesDark Basic Professional XPMediaMusicMP3 بود بر روی حافظه فراخوانی کردیم . در واقع عدد یک اختصاص داده شده در مثال بالا ، نام موزیک ما می باشد و در هر جایی از برنامه این موزیک توسط همین عدد قابل ردیابی است و می توانیم فرامین مختلفی را توسط این عدد به موزیکمان اعمال کنیم .

تابع MUSIC EXIST

این تابع بررسی می کند که آیا موزیک مورد نظرمان بر روی حافظه موجود است یا نه . اگر بر روی حافظه فراخوانی شده باشد ، تابع مقدار یک و اگر فراخوانی نشده باشد ، تابع مقدار صفر را برمی گرداند . مانند مثال زیر :

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3Music fun.mp3",1

".If Music Exist(1) Then Print "Music 1 Is Exist

(Print Music Exist(2

Wait Key

دستور PLAY MUSIC

اگر موزیکی را قبلا ( توسط دستور Load Music ) بر روی حافظه فراخوانی کرده باشیم و عددی به آن اختصاص داده باشیم ، با این دستور می توانیم با اشاره به عدد اختصاصی به آن موزیک آن را پخش کنیم . مانند دستورالعمل زیر :

PLAY MUSIC MusicNumber

طبق این دستورالعمل به جای MusicNumber عدد اختصاصی به موزیکمان را قرار می دهیم . یعنی اگر سه موزیک در حافظه فراخوانی کرده باشیم و به هر کدام یک عدد اختصاص داده باشیم . می توانیم با این دستور و همچنین قرار دادن عدد اختصاصی به موزیک ، آن را پخش کنیم . مانند مثال زیر :

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3Music fun.mp3" , 1

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3music space.mp3" , 2

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3music misty room.mp3" , 3

Play Music 2

Wait Key

در این مثال سه موزیک بر روی حافظه فراخوانی شد و در آخر موزیک شماره ی 2 پخش شد . در یک زمان چندین موزیک می توانند با هم در حال پخش باشند . مانند مثال زیر :

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3Music fun.mp3" , 1

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3music space.mp3" , 2

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3music misty room.mp3" , 3

Play Music 1

Play Music 2

Play Music 3

Wait Key

تابع MUSIC PLAYING

این تابع بررسی می کند که آیا موزیک مورد نظرمان درحال پخش است یا نه . اگر موزیک در حال پخش باشد ، تابع عدد یک و اگر در حال پخش نباشد ، تابع عدد صفر را برمی گرداند . مانند مثال زیر :

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3Music fun.mp3" , 1

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3music space.mp3" , 2

Play Music 1

(Print Music Playing(1

(Print Music Playing(2

Wait Key

دستور STOP MUSIC

این دستور باعث توقف کامل موزیک می شود . مانند مثال زیر :

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3Music fun.mp3" , 100

Play Music 100 : Print "Playing Music ." : Wait 2000

Stop Music 100

Cls : Print "Stop Music . Press Any Key To Exit ." : Wait Key

دستور PAUSE MUSIC

این دستور باعث توقف موزیک بطور موقت می شود . یعنی اگر نصف موزیک پخش شده باشد ، با این دستور پخش موزیک متوقف شده و در خطوط بعدی می توانیم موزیک متوقف شده را از همانجا پخش کنیم . مانند مثال زیر :

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3Music fun.mp3" , 25

Play Music 25

Print "Playing Music" : Wait 2000

Pause Music 25

Wait Key

تابع MUSIC PAUSED

این تابع بررسی می کند که آیا موزیک مورد نظرمان موقتا متوقف شده یا نه . اگر موقتا متوقف شده باشد ، تابع مقدار یک و اگر متوفق نشده باشد ، تابع مقدار صفر را برمی گرداند . مانند مثال زیر :

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3Music fun.mp3",25

Play Music 25

Print "Playing Music" : Wait 2000

Pause Music 25

".If Music Paused(25)=1 Then Print "Music Paused

Wait Key

دستور RESUME MUSIC

اگر موزیک مورد نظر را توسط دستور Pause Music متوفق کرده باشیم ، می توانیم با این دستور ادامه ی موزیک را از همان جا پخش کنیم . مانند مثال زیر :

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3Music fun.mp3" , 10

Play Music 10

Print "Playing Music" : Wait 2000

Pause Music 10

Print "Pause Music" : Wait 2000

Resume Music 10

Print "Resume Music" : Wait 2000

Wait Key

دستور LOOP MUSIC

این دستور باعث پخش متوالی موزیک می گردد . یعنی موزیک مورد نظر را پخش می کند و اگر موزیک تمام شود ، دوباره از اول بطور خودکار پخش خواهد شد . پخش موزیک مورد نظر تا زمانی که دستور توقف در خطوط بعدی صادر نشده باشد ، ادامه خواهد داشت . مانند مثال زیر :

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3Music fun.mp3" , 4

Loop Music 4

Print "Press Any Key To Pause Music ." : Wait Key

Stop Music 4

Cls : Print "Press Any Key To Exit ." : Wait Key

تابع MUSIC LOOPING

این تابع بررسی می کند که آیا موزیک مورد نظر بطور متوالی در حال پخش است یا نه . یعنی اگر دستور Loop Music در باره ی موزیک مورد نظرمان اجرا شده باشد ، تابع مقدار یک و اگر اجرا نشده باشد ، تابع مقدار صفر را برمی گرداند . مانند مثال زیر :

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3Music fun.mp3" , 4

Loop Music 4

".If Music Looping(4)=1 Then Print "Music Looping

Wait Key

دستور DELETE MUSIC

با این دستور موزیک مورد نظرمان را که از فایل به حافظه فراخوانده بودیم ، از حافظه پاک می کنیم . مانند مثال زیر :

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3Music fun.mp3",50

Play Music 50 : Print "Playing Music ." : Wait 2000

Stop Music 50 : Print "Stop Music ." : Wait 2000

Delete Music 50

Print "Delete Music ." : Wait 2000 : End

 با پاک شدن موزیک از حافظه ، موزیک قابل پخش نمی باشد و برای پخش دوباره ، موزیک باید دوباره به حافظه فراخوانی شود .

دستور SET MUSIC SPEED

با این دستور می توانیم سرعت پخش موزیک را تنظیم کنیم . مانند دستورالعمل زیر :

SET MUSIC SPEED MusicNumber,Speed

طبق این دستورالعمل به جای MusicNumber عدد موزیک و به جای Speed سرعت پخش موزیک را قرار می دهیم که پیش فرض آن 100 است . یعنی اگر سرعت موزیک را 50 قرار دهیم موزیک با نصف سرعت و اگر 200 قرار دهیم با دو برابر سرعت پخش خواهد شد و اگر 100 باشد با سرعت عادی پخش خواهد شد . مانند مثال زیر :

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3Music fun.mp3",50

".Play Music 50 : Print "Playing Music Normal Speed

Wait 2000 : Cls

Set Music Speed 50,200

".Print "Playing Music 2X Speed

Wait 2000 : Cls

Set Music Speed 50,50

".Print "Playing Music Half Speed

Wait Key

تابع MUSIC SPEED

این تابع مقدار سرعت پخش موزیک مورد نظرمان را برمی گرداند . مانند مثال زیر :

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3Music fun.mp3",50

Set Music Speed 50,200

(Print "Music Speed = " ; Music Speed(50

Wait Key

دستور SET MUSIC VOLUME

با این دستور ، بلندی صدای موزیک مورد نظرمان را کم و زیاد کنیم . مانند دستورالعمل زیر :

SET MUSIC VOLUME MusicNumber,Volume

طبق این دستورالعمل به جای MusicNumber شماره موزیک و به جای Volume مقدار بلندی صدا را قرار می دهیم که پیش فرض آن 100 می باشد . یعنی اگر بلندی صدای موزیک را 50 قرار دهیم صدای پخش موزیک نصف و اگر 100 قرار دهیم ، بلندی صدای موزیک معمولی خواهد شد . مانند مثال زیر :

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3Music fun.mp3",50

".Play Music 50 : Print "Playing Music Normal Volume

Wait 2000 : Cls

Set Music Volume 50,50

".Print "Playing Music Half Volume

Wait 2000 : Cls

Set Music Volume 50,100

".Print "Playing Music Normal Volume

Wait Key

تابع MUSIC VOLUME

این تابع مقدار بلندی صدای موزیک مورد نظرمان را برمی گرداند . مانند مثال زیر :

Load Music "C:Program FilesDark Basic Professional XPMediaMusicMP3Music fun.mp3",40

Play Music 40

Set Music Volume 40,50

(Print "Music Volume = " ; Music Volume(40

Wait Key